liliana :

Написать функцию, которая моделирует бросание двух игральных кубиков

(на каждом может выпасть от одного до шести очков).

program kubiki;  {Функция иммитирует бросок 2-х кубиков}

Uses Crt;

function kub(var x,y : integer) :integer;

begin

     x:= 1+random(6);

     y:= 1+random(6);

end;

var a,b: integer;

begin

    kub(a,b);

    writeln (a);

    writeln (b);     {результат бросков}

end.